home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / amicomsys / rexx / sendirc.amicomsys < prev    next >
Text File  |  1999-06-14  |  513b  |  26 lines
  1. /* Send IRC-address to your IRC-client
  2.  Currently supported is AmIRC.
  3.  $VER: SendIRC.amicomsys 1.0 (24.1.1998) Håkan Parting
  4. */
  5. parse arg server'/'channel
  6.  
  7. /*
  8. if show('P','AMIRC.1') then
  9. do
  10.     ADDRESS AMIRC.1 SAY "/SERVER "server
  11.     ADDRESS AMIRC.1 SAY "/JOIN "channel
  12.     Exit
  13. end
  14. */
  15.  
  16. /* Set the path to your AmIRC-client under the Misc-page in AmiComSys settings.
  17. */
  18.  
  19. OPTIONS RESULTS;
  20.  
  21. ADDRESS AMICOMSYS GET stem info.;
  22.  
  23. ADDRESS COMMAND "c:run >NIL: "info.ircprgpath" Server="server" AutoJoin="channel" connect"
  24.  
  25. Exit
  26.